home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / wb / GHelpDeluxeMUI.lha / GHelp / Install < prev    next >
Text File  |  2001-09-12  |  3KB  |  141 lines
  1. ; $VER: Install 1.0 (11.09.01)
  2. ; Installation-Script for GHelp V4.0
  3.  
  4. (
  5.  (set #overwrite-request
  6.  (cat "You have an earlier version of GHelp installed.\n"
  7.       "Should it be replaced?"))
  8.  (set #copygui
  9.      "Copy file GHelpGui to c?")
  10.  (set #copyghelp
  11.      "Copy GHelp to WBStartup?")
  12.  (set #copyenv
  13.      "Copy GHelp.ig to ENVARC?")
  14.  (set #copyenvhelp
  15.      "This file is used to filter out commonly used words during Guide Searching")
  16.  (set #desthelpprmt "Where do you want the documentation copied?")
  17.  (set #helptxt
  18.      "The destination for GHelp.guide. HELP: is the default")
  19.  (set #ghcontxt
  20.     (cat "Do you want the GHelpConvert utilitity copying.\n"
  21.         "This is required if you are updating from a version earlier than 3.1\n"
  22.         "See the docs for details"))
  23.  (set #iconprompt
  24.      "Which type of icons do want to install?")
  25.  
  26. )
  27. ; ----------------------------------
  28.  
  29. ;(set @default-dest "RAM:")
  30.  
  31. (complete 0)
  32.  
  33. (
  34.   (set vernum (getversion "c:ghelpgui"))
  35.   (set ver (/ vernum 65536))
  36.   (set rev (- vernum (* ver 65536) ) )
  37.  
  38.   (if( > ver 3.9)
  39.   (
  40.     (set #overwrite (askbool (prompt (#overwrite-request ver rev))
  41.                              (help @askbool-help)
  42.                              (default 1)))
  43.  
  44.     (if( = #overwrite 0)
  45.     (
  46.       (exit)
  47.     ))
  48.  
  49.  
  50.   ))
  51. )
  52.  
  53. (set @default-dest "SYS:WBStartup")
  54.  
  55. (complete 25)
  56.  
  57. (copylib (prompt #copygui)
  58.          (confirm)
  59.          (source "c/ghelpgui")
  60.          (dest "C:")
  61.          (help @copylib-help))
  62.  
  63. (complete 33)
  64.  
  65. (copyfiles
  66.          (prompt #copyghelp)
  67.            (source "wbstartup/ghelp")
  68.            (dest "sys:wbstartup")
  69.            (noposition))
  70.  
  71. (complete 66)
  72.  
  73. (copyfiles
  74.          (prompt #copyenv)
  75.            (source "envarc/GHelp.ig")
  76.            (dest "ENVARC:")
  77.          (help #copyenvhelp)
  78.            (noposition))
  79.  
  80. (complete 80)
  81.  
  82. (set #desthelp
  83.     (askdir
  84.         (prompt #desthelpprmt)
  85.         (help #helptxt)
  86.         (default 'HELP:'))
  87.  
  88. )
  89. (copyfiles
  90.         (source "GHelp.guide")
  91.         (dest #desthelp))
  92.         
  93. (complete 90)
  94.  
  95. (copyfiles
  96.         (prompt #ghcontxt)    
  97.         (confirm)
  98.         (source "c/ghelpconvert")
  99.         (dest "C:")
  100.         (help @copyfiles-help))
  101.  
  102. (complete 95)
  103.  
  104. (set #iconpath
  105.     (askchoice
  106.         (prompt #iconprompt)
  107.         (help @askchoice-help)
  108.         (choices
  109.             "OS3.5 Coloricons"
  110.             "Newicons")
  111.         (default 0)
  112.     )
  113. )
  114.  
  115. (set #iconpath
  116.     (select #iconpath "os3.5" "newicons"))
  117.  
  118. (set #gpath
  119.     (cat #iconpath "/GHelp.guide.info"))
  120.  
  121. (set #dpath
  122.     (cat #iconpath "/Def_GHelp.info"))
  123.  
  124. (set #wpath
  125.     (cat #iconpath "/GHelp.info"))
  126.  
  127. (copyfiles
  128.         (source #gpath)
  129.         (dest #desthelp))
  130.  
  131. (copyfiles
  132.         (source #dpath)
  133.         (dest "ENVARC:sys")
  134. )
  135. (copyfiles
  136.         (source #wpath)
  137.         (dest "SYS:WBStartup"))
  138.  
  139. (message "Installation of GHelp is complete")
  140.  
  141. (complete 100)